<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>16139</cardID>
<listID>2294</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>224</width>
<height>104</height>
</cardSize>
<script>on trueConvert sglobal truePasteColor, iconList--if truePasteColor is empty thenput word 2 of screenList(cardScreen) into depthelse put truePasteColor into depth--put value of word 2 of long name of stack s into sif there is no stack s & "•" then put s & "•" into s1elseput 2 into irepeat while there is a stack s & "•" & iadd 1 to iend repeatput s & "•" & i into s1end if--fileCopy s, s1if the result is not s1 thenreturn "FileCopy" && the result --∆end ifput s1 into s--put value of word 2 of long name of this stack into t--copyRes "XCMD",9207,t,scopyRes "BITs",1000,t,scopyRes "STR#",8000,t,scopyRes "STR#",8001,t,scopyRes "STR#",8002,t,scopyRes "STR#",8003,t,scopyRes "STR#",8004,t,scopyRes "STR#",8005,t,scopyRes "STR#",8006,t,s--put resources(s) into rif the result is not empty thenreturn "resources()" && the result --∆end if--put empty into iconListrepeat with i=1 to the number of lines of rput line i of r into aif word 1 of a is "PICT" and word 4 to 5 of a is "icon id" thenput word 4 to 6 of a & return after iconListend ifend repeat--put script of stack s into sc--put trueInsertCmd(sc,"openCard","Send colorMe to this card") into scput trueInsertCmd(sc,"closeCard","lock screen") into scput trueInsertCmd(sc,"colorMe","AddColor colorCard,stamp,0",false) into scput trueInsertCmd(sc,"openStack","AddColor install," & depth) into scput trueInsertCmd(sc,"closeStack","AddColor remove") into sc--put trueInsertCmd(sc,"trueShow","show the target", false) into scput trueInsertCmd(sc,"trueHide","hide the target", false) into scput trueInsertCmd(sc,"trueShowQuick","show the target", false) into scput trueInsertCmd(sc,"trueHideQuick","hide the target", false) into sc--set script of stack s to sc--put long name of this card into clock messagescloseCardcloseBackgroundcloseStackgo to stack sAddColor install,depth--put empty into bgListrepeat with i=1 to the number of cards of this stackset cursor to busy¨if the mouse is down then exit repeat --∆lock screengo card i of this stack--if there is a fld "trueColor" thendelete fld "trueColor"put id of this bg & return after bgListrepeat with j=1 to the number of bg partsset cursor to busyput "bg part" && j into pif visible of p thentrueConvertPart pif the result is not empty then return the result --∆end ifend repeatend if--if id of this bg is in bgList thenrepeat with j=1 to the number of cd partsset cursor to busyput "cd part" && j into pif visible of p thentrueConvertPart pif the result is not empty then return the result --∆end ifend repeatend if--AddColor colorCard,stamp,30unlock screenend repeat--wait 30 ticksAddColor removego copenStackopenBackgroundopenCardunlock messagesend trueConverton trueConvertPart pglobal iconList--if word 1 of name of p is "card" then put "cd" into cdbgelse put "bg" into cdbg--put trueProperty(p,"trueColor") into cif c ≠ empty then trueSetProperty p,"trueColor",emptyelse put "65535,65535,65535" into c--if c ≠ "65535,65535,65535" or style of p ≠ transparent thenif style of p is transparent thenaddColor addRect, cdbg, rect of p, c, 0, -1else if word 2 of name of p is "button" thenaddColor addButton, cdbg, id of p, c, 0, -1else addColor addField, cdbg, id of p, c, 0, -1if the result is not empty then return the result --∆end if--put trueProperty(p,"truePicture") into xif x ≠ empty then trueSetProperty p,"truePicture",empty--put value of word 1 of x into sif word 2 of x is "dither" thenaddColor addPict, cdbg, s, rect of p, "t", -1else addColor addPict, cdbg, s, topLeft of p, "t", -1if the result is not empty then return the result --∆--if word 2 of name of p is "button" thenif icon of p ≠ 0 thenput width of p into wif w ≤ 32 then put left of p - (33 - w) div 2 into xelse put left of p - (32 - w) div 2 into xput height of p into hif h ≤ 32 then put top of p - (33 - h) div 2 into yelse put top of p - (32 - h) div 2 into yif showName of p then add -6 to yput x & "," & y into posput "icon id" && icon of p into sif s is in iconList thenset icon of p to "trueWhite"addColor addPict, cdbg, s, pos, "t", -1if the result is not empty then return the result --∆end ifend ifend ifend trueConvertPartfunction trueInsertCmd sc, h, cmd, pput offset("on" && h, sc) into xif x is 0 thenif last char of sc is not return then put return after scput return after scput "on" && h & return after scput " " & cmd & return after scif p≠false then put " pass" && h & return after scput "end" && h & return after scelseput x + 3 + length of h into xput return & " " & cmd & return into char x of scend ifreturn scend trueInsertCmd</script>
